home *** CD-ROM | disk | FTP | other *** search
/ Kit PC World De Ampliacion De Windows 95 / Kit PC World de ampliacion de Windows 95.iso / internet / sweeper / samples / olecon~1 / wizards / autoform.frm < prev    next >
Text File  |  1995-11-25  |  6KB  |  194 lines
  1. VERSION 4.00
  2. Begin VB.Form frmMainWizard 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Create Automation Server"
  5.    ClientHeight    =   4050
  6.    ClientLeft      =   2640
  7.    ClientTop       =   3225
  8.    ClientWidth     =   6810
  9.    Height          =   4455
  10.    Left            =   2580
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   4050
  15.    ScaleWidth      =   6810
  16.    ShowInTaskbar   =   0   'False
  17.    Top             =   2880
  18.    Width           =   6930
  19.    Begin VB.CheckBox chkSatellite 
  20.       Caption         =   "Use Satellite DLL &Localization"
  21.       Height          =   375
  22.       Left            =   1560
  23.       TabIndex        =   5
  24.       Top             =   2640
  25.       Visible         =   0   'False
  26.       Width           =   3015
  27.    End
  28.    Begin VB.TextBox txtUseful 
  29.       Height          =   375
  30.       Left            =   1440
  31.       TabIndex        =   4
  32.       Text            =   "Text1"
  33.       Top             =   1440
  34.       Visible         =   0   'False
  35.       Width           =   5175
  36.    End
  37.    Begin VB.CommandButton cmdNext 
  38.       Caption         =   "&Next >"
  39.       Default         =   -1  'True
  40.       Height          =   375
  41.       Left            =   4320
  42.       TabIndex        =   1
  43.       Top             =   3555
  44.       Width           =   1095
  45.    End
  46.    Begin VB.CommandButton btnFinishCancel 
  47.       Cancel          =   -1  'True
  48.       Caption         =   "Cancel"
  49.       Height          =   375
  50.       Left            =   5520
  51.       TabIndex        =   2
  52.       Top             =   3555
  53.       Width           =   1095
  54.    End
  55.    Begin VB.CommandButton cmdBack 
  56.       Caption         =   "< &Back"
  57.       Enabled         =   0   'False
  58.       Height          =   375
  59.       Left            =   3240
  60.       TabIndex        =   0
  61.       Top             =   3555
  62.       Width           =   1095
  63.    End
  64.    Begin VB.Label lblMessage 
  65.       Caption         =   "Welcome to the Automation Server Creation Wizard. Please Click ""Next"" to begin."
  66.       Height          =   975
  67.       Left            =   1440
  68.       TabIndex        =   3
  69.       Top             =   240
  70.       Width           =   5175
  71.    End
  72.    Begin VB.Line Line2 
  73.       BorderColor     =   &H00FFFFFF&
  74.       X1              =   120
  75.       X2              =   6600
  76.       Y1              =   3375
  77.       Y2              =   3375
  78.    End
  79.    Begin VB.Line Line1 
  80.       BorderColor     =   &H00808080&
  81.       X1              =   120
  82.       X2              =   6600
  83.       Y1              =   3360
  84.       Y2              =   3360
  85.    End
  86. End
  87. Attribute VB_Name = "frmMainWizard"
  88. Attribute VB_Creatable = False
  89. Attribute VB_Exposed = False
  90.  
  91. Private Sub btnFinishCancel_Click()
  92.  
  93.     If iStage = STAGE_FINISHING Then
  94.         Unload Me
  95.     Else
  96.         TerminateApplication
  97.     End If
  98.     
  99. End Sub
  100.  
  101. Private Sub chkSatellite_Click()
  102.  
  103.     g_fSatellite = chkSatellite.Value
  104.     
  105. End Sub
  106.  
  107. Private Sub cmdBack_Click()
  108.  
  109.     iStage = iStage - 1
  110.     m_SwitchPage
  111.     
  112. End Sub
  113.  
  114. Private Sub cmdNext_Click()
  115.  
  116.     iStage = iStage + 1
  117.     m_SwitchPage
  118.     
  119. End Sub
  120.  
  121. Private Sub Form_Load()
  122.  
  123.     Top = (Screen.Height - Height) / 3
  124.     Left = (Screen.Width - Width) / 2
  125.     
  126. End Sub
  127.  
  128.  
  129. Private Sub m_SwitchPage()
  130.     
  131.     Select Case iStage
  132.         Case STAGE_WELCOME
  133.             lblmessage = "Welcome to the Control Creation Wizard. Please Click ""Next"" to begin."
  134.             chkSatellite.Visible = False
  135.             txtuseful.Visible = False
  136.             cmdBack.Enabled = False
  137.             cmdNext.Enabled = True
  138.             
  139.         Case STAGE_CONTROLNAME
  140.             lblmessage = "Please Enter a Name for your Automation Object."
  141.             chkSatellite.Visible = True
  142.             txtuseful.Text = szControlName
  143.             txtuseful.Visible = True
  144.             cmdBack.Enabled = True
  145.             cmdNext.Enabled = True
  146.             txtuseful.SetFocus
  147.  
  148.         Case STAGE_SERVERNAME
  149.             lblmessage = "Please Choose a Name for your In-proc Server."
  150.             chkSatellite.Visible = False
  151.             txtuseful.Visible = True
  152.             txtuseful.Text = szServerName
  153.             txtuseful.SetFocus
  154.             cmdBack.Enabled = True
  155.             cmdNext.Enabled = True
  156.  
  157.         Case STAGE_CONTROLDIR
  158.             lblmessage = "Please Enter the location you'd like the source files to go.   *** NOTE: If This directory already exists, the wizard will fail. ***"
  159.             chkSatellite.Visible = False
  160.             txtuseful.Text = szFinalDir
  161.             txtuseful.Visible = True
  162.             cmdBack.Enabled = True
  163.             cmdNext.Enabled = True
  164.             txtuseful.SetFocus
  165.  
  166.         Case STAGE_FINISHING
  167.             lblmessage = "Thank you.  Please Choose Finish to Complete the Creation of your control."
  168.             chkSatellite.Visible = False
  169.             txtuseful.Visible = False
  170.             cmdBack.Enabled = True
  171.             cmdNext.Enabled = False
  172.             btnFinishCancel.Caption = "&Finish"
  173.             btnFinishCancel.SetFocus
  174.             
  175.     End Select
  176.                 
  177.             
  178.             
  179. End Sub
  180.  
  181. Private Sub txtuseful_Change()
  182.  
  183.     Select Case iStage
  184.         Case STAGE_CONTROLNAME
  185.             szControlName = txtuseful.Text
  186.         Case STAGE_CONTROLDIR
  187.             szFinalDir = txtuseful.Text
  188.             Case STAGE_SERVERNAME
  189.             szServerName = txtuseful.Text
  190.     End Select
  191.         
  192. End Sub
  193.  
  194.